home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / c / amiexpress / utils / rexxdoor2.33+ / rexxdoor.c < prev    next >
C/C++ Source or Header  |  1993-02-22  |  11KB  |  327 lines
  1. #include <intuition/intuitionbase.h>
  2. #include <clib/rexxsyslib_protos.h>
  3. #include <exec/exec.h>
  4. #include <rexx/rxslib.h>
  5. #include <rexx/storage.h>
  6. #include <rexx/rexxio.h>
  7. #include <rexx/errors.h>
  8. #include <stdio.h>
  9. #include <stdlib.h>
  10. #include <string.h>
  11. #include <dos/dostags.h>
  12. #include <clib/exec_protos.h>
  13. #include <clib/dos_protos.h>
  14. #include <clib/alib_protos.h>
  15. #include "sc:ae/CmodGlue/doorheader.h"
  16. #include "sc:ae/CmodGlue/glue.h"
  17.  
  18. #define SM sendmessage
  19. #define PM prompt
  20. #define HK hotkey
  21. #define GU getuserstring
  22. #define PU putuserstring
  23. struct IntuitionBase *IntuitionBase;
  24. struct RexxSysBase *RexxSysBase;
  25. struct MsgPort *MyRexxPort;
  26. ULONG RexxSig;
  27. void OpenRexxPort(int node);
  28. void CheckRexxMessage();
  29. void CloseRexx(int opt);
  30. void RemoveRexxPort(int opt);
  31. void end();
  32. int node;
  33.   struct RexxMsg *rexxmsg;
  34. struct  MsgPort  RexxPort;
  35. struct  RexxMsg  *OutMsg, *CreateRexxMsg();
  36. char DoorVer[]="13";
  37. struct rx_mes *mslist;
  38.   char CommandLine[200];
  39. void LastCommand(void);
  40. int StartProcess(char *s,ULONG Stack);
  41. void main(int argc,char *argv[]);
  42. void main(int argc,char *argv[])
  43. {
  44.   char Command[200];
  45.   if(argc==1)
  46.   {
  47.      printf("RexxDoor v1.4, written by Joseph Hodge\n");
  48.      printf("\n");
  49.      printf("This module is called by AmiExpress 1.1v+\n");
  50.      printf("Requires: RexxMast, RX & Rexxsyslib.library\n");
  51.      exit(0);
  52.   }
  53.   node=argv[1][0]-'0';
  54.   OpenRexxPort(argv[1][0]-'0');
  55.   Register(argv[1][0]-'0');
  56.   node=argv[1][0]-'0';
  57.   GU(Command,BB_TASKPRI);
  58.   SetTaskPri(FindTask(0),(LONG)atol(Command));
  59.   strcpy(CommandLine,argv[2]);
  60.   sprintf(Command,"sys:rexxc/RX %s %c",CommandLine,argv[1][0]);
  61.   StartProcess(Command,4096L);
  62.   CheckRexxMessage();
  63.   CloseRexx(0);
  64. }
  65.  
  66. void end()
  67. {
  68.   rexxmsg->rm_Result1=10;
  69.     
  70.   rexxmsg->rm_Result2=0;
  71.   ReplyMsg((struct Message *) rexxmsg);
  72.   CloseRexx(1);
  73.   exit(0);
  74. }
  75. void OpenRexxPort(int node)
  76. {
  77. if((IntuitionBase=(struct IntuitionBase *)OpenLibrary("intuition.library",0L))==NULL)
  78. { 
  79.    printf("can't open intuition.library\n");
  80.    exit(0);
  81. }
  82. if((RexxSysBase = (struct RexxSysBase *)OpenLibrary(RXSNAME,0)) == NULL)
  83.     {
  84.     puts("rexxsyslib.library not found, AREXX port disabled\n");
  85.     }
  86.     switch(node)
  87.     {
  88.       case 0: InitPort(&RexxPort,"AERexxPort0"); AddPort(&RexxPort);
  89.               MyRexxPort=(struct MsgPort *) CreatePort("AERexxControl0",0L); break;
  90.       case 1: InitPort(&RexxPort,"AERexxPort1"); AddPort(&RexxPort);
  91.               MyRexxPort=(struct MsgPort *) CreatePort("AERexxControl1",0L); break;
  92.       case 2: InitPort(&RexxPort,"AERexxPort2"); AddPort(&RexxPort);
  93.               MyRexxPort=(struct MsgPort *) CreatePort("AERexxControl2",0L); break;
  94.       case 3: InitPort(&RexxPort,"AERexxPort3"); AddPort(&RexxPort);
  95.               MyRexxPort=(struct MsgPort *) CreatePort("AERexxControl3",0L); break;
  96.       case 4: InitPort(&RexxPort,"AERexxPort4"); AddPort(&RexxPort);
  97.               MyRexxPort=(struct MsgPort *) CreatePort("AERexxControl4",0L); break;
  98.       case 5: InitPort(&RexxPort,"AERexxPort5"); AddPort(&RexxPort);
  99.               MyRexxPort=(struct MsgPort *) CreatePort("AERexxControl5",0L); break;
  100.       case 6: InitPort(&RexxPort,"AERexxPort6"); AddPort(&RexxPort);
  101.               MyRexxPort=(struct MsgPort *) CreatePort("AERexxControl6",0L); break;
  102.       case 7: InitPort(&RexxPort,"AERexxPort7"); AddPort(&RexxPort);
  103.               MyRexxPort=(struct MsgPort *) CreatePort("AERexxControl7",0L); break;
  104.       case 8: InitPort(&RexxPort,"AERexxPort8"); AddPort(&RexxPort);
  105.               MyRexxPort=(struct MsgPort *) CreatePort("AERexxControl8",0L); break;
  106.       case 9: InitPort(&RexxPort,"AERexxPort9"); AddPort(&RexxPort);
  107.               MyRexxPort=(struct MsgPort *) CreatePort("AERexxControl9",0L); break;
  108.     }
  109. RexxSig = 1L << MyRexxPort->mp_SigBit;
  110.  
  111. }
  112. void CheckRexxMessage(void)
  113. {
  114.  
  115.   char String[200];
  116.   char Tmp[200];
  117.   long t;
  118.   int i;
  119.   int cmd;
  120.   int PromptWidth=100;
  121.   char PutUserStr[200];
  122. struct rx_mes *mslist2;
  123.   strcpy(PutUserStr,"");
  124.  
  125. while(1)
  126.     {
  127.      rexxmsg=(struct RexxMsg *)WaitPort((struct MsgPort *) MyRexxPort);
  128.     while(( rexxmsg = (struct RexxMsg *) GetMsg((struct MsgPort *) MyRexxPort)))
  129.         {
  130.      
  131.                  rexxmsg->rm_Result1=0L;
  132.                  rexxmsg->rm_Result2=0L;
  133.         if( !strnicmp(rexxmsg->rm_Args[0],"getuser",7) )
  134.             {
  135.                            strcpy(String,rexxmsg->rm_Args[0]+8);
  136.                            cmd=atoi(String);
  137.                            GU(String,atoi(String));
  138.                     rexxmsg->rm_Result1=0;
  139.                     rexxmsg->rm_Result2=(long)CreateArgstring(String,(long)strlen(String));
  140.               
  141.                 } else
  142.                if( !strnicmp(rexxmsg->rm_Args[0],"putuser",7) )
  143.             {
  144.                            strcpy(String,rexxmsg->rm_Args[0]+8);
  145.                            cmd=atoi(String);
  146.                            PU(PutUserStr,atoi(String));
  147.                     rexxmsg->rm_Result1=0;
  148.                     rexxmsg->rm_Result2=0;
  149.               
  150.                 }  else
  151.                 if( !strnicmp(rexxmsg->rm_Args[0],"ConvertToDate",13) )
  152.             {
  153.                            strcpy(String,rexxmsg->rm_Args[0]+14);
  154.                            DateToString(atol(String),String);
  155.                 rexxmsg->rm_Result1=0;
  156.                 rexxmsg->rm_Result2=(long)CreateArgstring(String,(long)strlen(String));
  157.                
  158.               
  159.                 }  else
  160.                if( !strnicmp(rexxmsg->rm_Args[0],"ConvertToTime",13) )
  161.             {
  162.                            strcpy(String,rexxmsg->rm_Args[0]+14);
  163.                            TimeToString(atol(String),String);
  164.                 rexxmsg->rm_Result1=0;
  165.                 rexxmsg->rm_Result2=(long)CreateArgstring(String,(long)strlen(String));
  166.                
  167.               
  168.                 }  else
  169.                 if(!strnicmp(rexxmsg->rm_Args[0],"putinfo",7))
  170.                 {
  171.                     strcpy(String,rexxmsg->rm_Args[0]+8);
  172.                     PutInfo(atoi(PutUserStr),atoi(String));
  173.                     rexxmsg->rm_Result1=0;
  174.                     rexxmsg->rm_Result2=0;
  175.                 }else if(!strnicmp(rexxmsg->rm_Args[0],"VerRexxDoor",11))
  176.                 {
  177.                    strcpy(String,DoorVer);
  178.                 rexxmsg->rm_Result1=0;
  179.                 rexxmsg->rm_Result2=(long)CreateArgstring(String,(long)strlen(String));
  180.                 }else
  181.                 if(!strnicmp(rexxmsg->rm_Args[0],"transmit",8))
  182.                   {
  183.                     strcpy(String,rexxmsg->rm_Args[0]+9); 
  184.                     SM(String,1); 
  185.                     rexxmsg->rm_Result1=0;
  186.                     rexxmsg->rm_Result2=0;
  187.                   } else
  188.                 if(!strnicmp(rexxmsg->rm_Args[0],"sendmessage",11))
  189.                 {
  190.                   strcpy(String,rexxmsg->rm_Args[0]+12);
  191.                   SM(String,0);
  192.                   rexxmsg->rm_Result1=0;
  193.                   rexxmsg->rm_Result2=0;
  194.                   
  195.                 }else
  196.                 if(!strnicmp(rexxmsg->rm_Args[0],"EditFile",8))
  197.                 {
  198.                   strcpy(String,rexxmsg->rm_Args[0]+9);
  199.                   Editfile(String,atoi(PutUserStr));
  200.                   rexxmsg->rm_Result1=0;
  201.                   rexxmsg->rm_Result2=0;
  202.                 }
  203.                 else
  204.                 if(!strnicmp(rexxmsg->rm_Args[0],"sendstring",10))
  205.                 {
  206.                   strcpy(String,rexxmsg->rm_Args[0]+11);
  207.                   SM(String,0);
  208.                   rexxmsg->rm_Result1=0;
  209.                   rexxmsg->rm_Result2=0;
  210.                   
  211.                 }else
  212.              if(!strnicmp(rexxmsg->rm_Args[0],"RemoveReserved",14))
  213.              {
  214.                 strcpy(String,rexxmsg->rm_Args[0]+15);
  215.                 i=strlen(String)-1;
  216.                 while(i>-1)
  217.                 {
  218.                   if(String[i]=='/' || String[i]=='*' || String[i]=='?' ||
  219.                      String[i]=='#' || String[i]==' ') String[i]='_';
  220.                   i--;
  221.                 }
  222.                 rexxmsg->rm_Result1=0;
  223.                 rexxmsg->rm_Result2=(long)CreateArgstring(String,(long)strlen(String));
  224.              }else
  225.  
  226.              if(!strnicmp(rexxmsg->rm_Args[0],"getchar",7))
  227.              {
  228.                 HK("",String);
  229.                 rexxmsg->rm_Result1=0;
  230.                 rexxmsg->rm_Result2=(long)CreateArgstring(String,(long)strlen(String));
  231.               }else
  232.              if(!strnicmp(rexxmsg->rm_Args[0],"showfile",8))
  233.              {
  234.                 strcpy(String,rexxmsg->rm_Args[0]+9);
  235.                 showfile(String);
  236.                 rexxmsg->rm_Result1=0;
  237.                 rexxmsg->rm_Result2=0;
  238.              }
  239.              else
  240.              if(!strnicmp(rexxmsg->rm_Args[0],"flagfile",8))
  241.              {
  242.                 strcpy(String,rexxmsg->rm_Args[0]+9);
  243.                 FlagFile(String);
  244.                 rexxmsg->rm_Result1=0;
  245.                 rexxmsg->rm_Result2=0;
  246.              }
  247.              else
  248.              if(!strnicmp(rexxmsg->rm_Args[0],"showgfile",9))
  249.              {
  250.                 strcpy(String,rexxmsg->rm_Args[0]+10);
  251.                 showgfile(String);
  252.                 rexxmsg->rm_Result1=0;
  253.                 rexxmsg->rm_Result2=0;
  254.              }
  255.              else
  256.              if(!strnicmp(rexxmsg->rm_Args[0],"PUTUSTR",7))
  257.              {
  258.                 strcpy(PutUserStr,rexxmsg->rm_Args[0]+8);
  259.                 rexxmsg->rm_Result1=0;
  260.                 rexxmsg->rm_Result2=0;
  261.              }
  262.              else
  263.              if(!strnicmp(rexxmsg->rm_Args[0],"RECEIVE",7))
  264.              {
  265.                 PromptWidth=atoi(rexxmsg->rm_Args[0]+8)-1;
  266.                 rexxmsg->rm_Result1=0;
  267.                 rexxmsg->rm_Result2=0;
  268.              }else
  269.              if(!strnicmp(rexxmsg->rm_Args[0],"QUERY",5))
  270.              {
  271.                 strcpy(String,rexxmsg->rm_Args[0]+6);
  272.                 SM(String,0);
  273.                 PM("",String,PromptWidth);
  274.                 rexxmsg->rm_Result1=0;
  275.                 rexxmsg->rm_Result2=(long)CreateArgstring(String,(long)strlen(String));
  276.              }else
  277.              if(!strnicmp(rexxmsg->rm_Args[0],"SHUTDOWN",8))
  278.              {
  279.                 ShutDown();
  280.                 ReplyMsg((struct Message *) rexxmsg);
  281.                 return;
  282.              }
  283.                 ReplyMsg((struct Message *) rexxmsg);
  284.                 
  285.             }
  286.          }
  287. }
  288. void CloseRexx(int opt)
  289. {
  290.   RemoveRexxPort(opt);
  291.   RemPort(&RexxPort);                   /* unlink it                     */
  292.     FreePort(&RexxPort); 
  293.   CloseLibrary((struct Library *)RexxSysBase);
  294.   CloseLibrary((struct Library *)IntuitionBase);
  295. }
  296. void RemoveRexxPort(int opt)
  297. {
  298.   struct RexxMsg *rexxmsg;
  299. if(MyRexxPort)
  300.     {
  301.     while(rexxmsg = (struct RexxMsg *) GetMsg((struct MsgPort *) MyRexxPort))
  302.         {
  303.           if(opt)rexxmsg->rm_Result1=10;  
  304.     
  305.           ReplyMsg((struct Message *) rexxmsg);
  306.         }
  307.     DeletePort((struct MsgPort *) MyRexxPort);
  308.     }
  309. }
  310.  
  311.  
  312. void LastCommand(void)
  313. {
  314. }
  315.  
  316. struct TagItem tags[]={ {SYS_Input,0},{SYS_Output,0},{SYS_Asynch,TRUE},{NP_StackSize,0},{NP_Priority,0},{TAG_DONE,0}};
  317.  
  318. int StartProcess(char *s,ULONG Stack)
  319. {
  320.     tags[3].ti_Data=Stack;
  321.     if(SystemTagList(s,tags)==-1)
  322.     {
  323.       return(0);
  324.     }
  325.     return(1);
  326. }
  327.